home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zd.d64 / beep.proc < prev    next >
Text File  |  2007-03-01  |  2KB  |  76 lines
  1. 9000 // DELETE "@:BEEP.PRC"
  2. 9005 //
  3. 9010 // LIST   "BEEP.PRC"
  4. 9015 //
  5. 9020 // INITIALIZE BEEP
  6. 9025 //              BY MARCEL BOKHORST
  7. 9030 //         DUTCH COMAL USERS GROUP
  8. 9035 //                           NOV85
  9. 9040 //
  10. 9045 // *******************************
  11. 9050 // * ONLY POSSIBLE AFTER SPECIAL *
  12. 9055 // * ├╧═┴╠ BOOT                  *
  13. 9060 // *******************************
  14. 9065 //
  15. 9070 PROC SET'BEEP CLOSED
  16. 9075 Z:=ZONE
  17. 9080 ZONE 0
  18. 9085 //
  19. 9090 BASE:=49152+5*256+15*16+6
  20. 9095 //
  21. 9100 PRINT "╞REQUENCY: 12288",
  22. 9105 GET(FR,5)
  23. 9110 POKE BASE,FR MOD 256
  24. 9115 POKE BASE+1,FR DIV 256
  25. 9120 PRINT "╨ULSE    : 2048",
  26. 9125 GET(PL,4)
  27. 9130 POKE BASE+2,PL MOD 256
  28. 9135 POKE BASE+3,PL DIV 256
  29. 9140 PRINT "╙OUNDTYPE: 4",
  30. 9145 GET(ST,1)
  31. 9150 POKE BASE+4,ST*16
  32. 9155 PRINT "┴TTACK   : 0",
  33. 9160 GET(A,1)
  34. 9165 PRINT "─ECAY    : 0",
  35. 9170 GET(D,1)
  36. 9175 PRINT "╙USTAIN  : 15",
  37. 9180 GET(S,2)
  38. 9185 PRINT "╥ELEASE  : 0",
  39. 9190 GET(R,1)
  40. 9195 POKE BASE+5,A+16*D
  41. 9200 POKE BASE+6,S*16+R
  42. 9205 PRINT "╓OLUME   : 15",
  43. 9210 GET(VO,2)
  44. 9215 POKE BASE+7,VO
  45. 9220 PRINT "╟ATE1    : 16",
  46. 9225 GET(G1,2)
  47. 9230 POKE BASE+8,G1
  48. 9235 PRINT "╟ATE0    : 1",
  49. 9240 GET(G0,1)
  50. 9245 POKE BASE+9,G0
  51. 9250 PRINT 
  52. 9255 PRINT "┬┼┼╨",CHR$(7),
  53. 9260 ZONE Z
  54. 9265 ENDPROC SET'BEEP
  55. 9270 //
  56. 9275 PROC NORMAL'BEEP CLOSED
  57. 9280 //                     BASE=$C5F6
  58. 9285 BASE:=49152+5*256+15*16+6
  59. 9290 POKE BASE+0,0
  60. 9295 POKE BASE+1,48
  61. 9300 POKE BASE+2,0
  62. 9305 POKE BASE+3,8
  63. 9310 POKE BASE+4,64
  64. 9315 POKE BASE+5,0
  65. 9320 POKE BASE+6,240
  66. 9325 POKE BASE+7,15
  67. 9330 POKE BASE+8,16
  68. 9335 POKE BASE+9,1
  69. 9340 ENDPROC NORMAL'BEEP
  70. 9345 //
  71. 9350 PROC GET(REF VAR,BK) CLOSED
  72. 9355 FOR T:=1 TO BK DO PRINT CHR$(157),
  73. 9360 INPUT "": VAR
  74. 9365 ENDPROC GET
  75. 9370 //
  76.